home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / e / easyplugins / examples / popasl_demo.e < prev    next >
Text File  |  1997-12-06  |  3KB  |  109 lines
  1.  
  2. MODULE 'easyplugins/popasl',
  3.        'tools/exceptions','tools/easygui',
  4.        'utility/tagitem'
  5.  
  6.  
  7. PROC main() HANDLE
  8. DEF mp:PTR TO popasl_plugin,mp2:PTR TO popasl_plugin,mp3:PTR TO popasl_plugin
  9.  
  10. NEW mp.popasl([PLA_PopAsl_Contents, 'PROGDIR:',
  11.                PLA_PopAsl_GadgetID, 10,
  12.                PLA_PopAsl_Type, PLV_PopAsl_Type_Drawer,
  13.                TAG_DONE])
  14.  
  15. NEW mp2.popasl([PLA_PopAsl_Contents, 'SYS:Daten/',
  16.                PLA_PopAsl_GadgetID, 12,
  17.                PLA_PopAsl_Type, PLV_PopAsl_Type_File,
  18.                TAG_DONE])
  19.  
  20. NEW mp3.popasl([PLA_PopAsl_Contents, 'topaz.font/8',
  21.                PLA_PopAsl_GadgetID, 14,
  22.                PLA_PopAsl_Type, PLV_PopAsl_Type_Font,
  23.                TAG_DONE])
  24.  
  25. easyguiA('PopAsl Test',
  26.          [ROWS,
  27.             [COLS,
  28.                [PLUGIN, {getstring2}, mp, TRUE],
  29.                [BUTTON, {toggle}, 'T', mp],
  30.                [BUTTON, {clear}, 'C', mp],
  31.                [BUTTON, {getstring}, 'G', mp]
  32.             ],
  33.             [COLS,
  34.                [PLUGIN, {getstring2}, mp2, TRUE],
  35.                [BUTTON, {toggle}, 'T', mp2],
  36.                [BUTTON, {clear}, 'C', mp2],
  37.                [BUTTON, {getstring}, 'G', mp2]
  38.             ],
  39.             [COLS,
  40.                [PLUGIN, {getstring2}, mp3, TRUE],
  41.                [BUTTON, {toggle}, 'T', mp3],
  42.                [BUTTON, {clear}, 'C', mp3],
  43.                [BUTTON, {getstring}, 'G', mp3]
  44.             ],
  45.             [EQCOLS,
  46.                [SBUTTON, {toggleall}, 'Toggle All', [mp,mp2,mp3]],
  47.                [SBUTTON, {resetall}, 'Reset All', [mp,mp2,mp3]],
  48.                [SBUTTON, {getstrings}, 'Get Strings', [mp,mp2,mp3]]
  49.             ]
  50.          ]
  51.         )
  52.  
  53. EXCEPT
  54.    END mp
  55.    report_exception()
  56. ENDPROC
  57.  
  58. PROC toggle(mp:PTR TO popasl_plugin, info)
  59.    mp.set(PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  60. ENDPROC
  61.  
  62. PROC toggleall(l:PTR TO LONG,info)
  63. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  64.  
  65.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  66.  
  67.    mp.set (PLA_PopAsl_Disabled,Not(mp.get(PLA_PopAsl_Disabled)))
  68.    mp2.set(PLA_PopAsl_Disabled,Not(mp2.get(PLA_PopAsl_Disabled)))
  69.    mp3.set(PLA_PopAsl_Disabled,Not(mp3.get(PLA_PopAsl_Disabled)))
  70.  
  71. ENDPROC
  72.  
  73. PROC clear(mp:PTR TO popasl_plugin, info)
  74.    mp.set(PLA_PopAsl_Contents, '')
  75. ENDPROC
  76.  
  77. PROC resetall(l:PTR TO LONG,info)
  78. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  79.  
  80.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  81.  
  82.    mp.set (PLA_PopAsl_Contents, 'PROGDIR:')
  83.    mp2.set(PLA_PopAsl_Contents, 'SYS:Daten/')
  84.    mp3.set(PLA_PopAsl_Contents, 'topaz.font/8')
  85.  
  86. ENDPROC
  87.  
  88. PROC getstring(mp:PTR TO popasl_plugin, info)
  89.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  90. ENDPROC
  91.  
  92. PROC getstrings(l:PTR TO LONG,info)
  93. DEF mp:PTR TO popasl_plugin, mp2:PTR TO popasl_plugin, mp3:PTR TO popasl_plugin
  94.  
  95.    mp:=l[0]; mp2:=l[1]; mp3:=l[2]
  96.  
  97.    PrintF('\n+-----------------------------------------------\n')
  98.    PrintF('| Drawer=''\s''\n', mp.get(PLA_PopAsl_Contents))
  99.    PrintF('| File  =''\s''\n', mp2.get(PLA_PopAsl_Contents))
  100.    PrintF('| Font  =''\s''\n', mp3.get(PLA_PopAsl_Contents))
  101.    PrintF('+-----------------------------------------------\n')
  102.  
  103. ENDPROC
  104.  
  105. PROC getstring2(info, mp:PTR TO popasl_plugin)
  106.    PrintF('Contents=''\s''\n', mp.get(PLA_PopAsl_Contents))
  107. ENDPROC
  108.  
  109.